home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / b.op ed 146 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  61 lines
  1. 10 poke56,36:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 25 lf=1:poke788,52
  4. 30 poke53281,0:poke53280,0:print"[147][129]"tab(8)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
  5. 40 print"[155]      by [194]ob [196]allmann, [193]ndrew [198]isher
  6. 41 [153]"         and lenlarence str$e (NULL)pain
  7. 42 iff1then100
  8. 44 f1=1
  9. 50 sys57812"wp/cm/unp",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 64 sys57812"keep up 1.shp",dv,0:poke780,0:poke781,0:poke782,100:sys65493
  11. 66 sys57812"keep up 2.shp",dv,0:poke780,0:poke781,0:poke782,117:sys65493
  12. 68 sys57812"welcome usa.shp",dv,0:poke780,0:poke781,0:poke782,134:sys65493
  13. 70 sys57812"where is it.shp",dv,0:poke780,0:poke781,0:poke782,36:sys65493
  14. 90 poke53280,0
  15. 92 wp=49152:un=51456:cm=50688
  16. 94 lf$(0)="[207][198][198]":lf$(1)="[207][206] "
  17. 96 s(1)=100:s(2)=117:s(3)=134:s(4)=36
  18. 100 printtab(8)" 1.[154] [203]eepin' [213]p #1
  19. 101 [153][163]8)" 2.cont (NULL)eepin' (NULL)p #2
  20. 102 printtab(8)" 3.[154] [215]elcome to the [213][211][193]
  21. 103 [153][163]8)" 4.cont (NULL)here is it?
  22. 105 printtab(8)" 5.[154] [209]uit
  23. 106 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]106
  24. 108 d[178][197](a$):[139]d[178]5[167]40000
  25. 109 [129]i[178]5[164]16:[151]781,i:[158]59903:[130]
  26. 112 [151]251,s(d):[151]252,64:[151]253,96:[158]51456
  27. 120 [151]214,6:[153]:[153]" 1.cont mid$ust show the picture.
  28. 122 print" 2.[154] [211]how the picture and print it on
  29. 125 [153]"    a 7-pin (1525-emulating) printer.
  30. 130 print" 3.[154] [211]how the picture and print it on
  31. 135 [153]"    an 8-pin (valpson-emulating) printer.
  32. 140 print" 4.[154] [212]oggle linefeed -- "lf$(lf)
  33. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  34. 170 [153]"list  (NULL)ake sure your printer is on-line.
  35. 220 poke198,0
  36. 222 poke53280,0
  37. 230 geta$:ifa$<"1"ora$>"5"then230
  38. 232 ifa$="5"then40000
  39. 233 ifa$="4"thenlf=1-lf:poke214,14:print:printtab(23)""lf$(lf):goto220
  40. 235 sys51459
  41. 240 ifa$="2"thensys49155,4,0,lf,0,0,39,24,64:goto280
  42. 250 ifa$="3"thensys49152,4,5,lf,0,0,39,24,64,75,35,51,24,0:goto280
  43. 260 poke198,0
  44. 262 poke53280,0
  45. 270 geta$:ifa$=""then270
  46. 280 poke251,s(d):poke252,64:poke253,96:sys51459
  47. 282 poke186,dv
  48. 290 print"[147]":goto30
  49. 10000 dv=peek(186):n$="b.op ed 146":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  50. 40000 poke788,49
  51. 40002 fori=0to21:poke828+i,8+i:next
  52. 40010 ifdv<8ordv>29ordv=8then40030
  53. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  54. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  55. 40040 close2:open2,i,2:close2:ifstthen40060
  56. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  57. 40060 next:print"[147]":poke53272,23:poke186,8:end
  58. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  59. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  60. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  61.